' Based on "Blue.bas" found in "9liners.zip" (https://qb45.org/download.php?id=1076)
' This BASIC Anywhere Machine mod by Charlie Veniot
' This program built with BASIC Anywhere Machine Version 5.2.3_2023.01.14.19.08
' On 2023.01.14.19.17
dim acr as double
acr = 360/256 ' ratio: angles to max of any rgb component value
aa% = 0  ' a moving increment, so that in each loop we start the image at the next angle; otherwise, same start and end angles every time will leave create a line in the image from the center to the circumference
_ALERT("Click/tap on the image and hold to pause the animation")
SCREEN 13 
DO 
  A_S% = 0 + aa% : A_E% = 359 + aa%
  FOR A% = A_S% TO A_E%
    cc% = int(((A% + C% ) MOD 360) / acr)
    PSET (COS(A% * _PI / 180) * R% + 160, SIN(A% * _PI / 180) * R% + 100), _RGB32(cc%,cc%,cc%)
  NEXT 
  _DELAY 0.0001
  C% = C% + 1 
  R% = INT(RND * 100) 
  WHILE _MOUSEBUTTON : WEND
  aa% = aa% + 1
  if aa% = 360 then aa% = 0
LOOP